home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
lisp
/
kcl
/
akcl
/
kcl.lha
/
cmpnew
/
cmpinline.data
< prev
next >
Wrap
Text File
|
1986-12-19
|
4KB
|
141 lines
#(
#!
(lisp::in-package 'user::compiler)
compiler::info
(lisp::defstruct compiler::info (compiler::changed-vars lisp::nil) (compiler::referred-vars lisp::nil) (lisp::type lisp::t) (compiler::sp-change lisp::nil))
system::defstruct-form
system::is-a-structure
((compiler::changed-vars lisp::nil lisp::nil lisp::nil 0) (compiler::referred-vars lisp::nil lisp::nil lisp::nil 1) (lisp::type lisp::t lisp::nil lisp::nil 2) (compiler::sp-change lisp::nil lisp::nil lisp::nil 3))
system::structure-slot-descriptions
system::structure-include
system::structure-print-function
system::structure-type
system::structure-named
compiler::info-changed-vars
(compiler::info . 0)
system::structure-access
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::info 0 system::v))
system::setf-lambda
system::setf-update-fn
system::setf-method
system::setf-documentation
compiler::info-referred-vars
(compiler::info . 1)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::info 1 system::v))
compiler::info-type
(compiler::info . 2)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::info 2 system::v))
compiler::info-sp-change
(compiler::info . 3)
((system::x) (system::v) (lisp::list 'system::structure-set system::x ''compiler::info 3 system::v))
4
system::structure-offset
(compiler::make-info)
system::structure-constructors
system::structure-documentation
compiler::*info*
compiler::var
compiler::*inline-functions*
0
compiler::*inline-blocks*
(lisp::fixnum lisp::character lisp::long-float lisp::short-float)
compiler::*next-cvar*
1
compiler::*compiler-output1*
compiler::cvar
lisp::object
compiler::vs
(lisp::fixnum lisp::long-float lisp::short-float)
(lisp::fixnum lisp::long-float lisp::short-float)
compiler::*value-to-go*
compiler::structure-ref
(lisp::t)
compiler::location
compiler::fixnum-loc
compiler::character-loc
compiler::long-float-loc
compiler::short-float-loc
#\@
#\;
48
(compiler::fixnum-loc compiler::character-loc compiler::long-float-loc compiler::short-float-loc)
(lisp::inline compiler::inline-cond compiler::inline-fixnum compiler::inline-character compiler::inline-long-float compiler::inline-short-float)
compiler::inline-cond
compiler::inline-fixnum
compiler::inline-character
compiler::inline-long-float
compiler::inline-short-float
lisp::inline
compiler::*safe-compile*
compiler::inline-safe
compiler::inline-unsafe
compiler::inline-always
compiler::fixnum-float
lisp::fixnum
lisp::long-float
lisp::short-float
compiler::boolean
(lisp::fixnum lisp::long-float lisp::short-float)
(lisp::fixnum lisp::long-float lisp::short-float)
(lisp::t)
compiler::wt-inline
compiler::wt-loc
compiler::wt-inline-cond
compiler::wt-inline-fixnum
compiler::wt-inline-character
compiler::wt-inline-long-float
compiler::wt-inline-short-float
#\#
2
compiler::*space*
#\,
#\)
compiler::lfun
compiler::arg-types
compiler::return-type
compiler::no-sp-change
compiler::predicate
compiler::make-info
compiler::copy-info
compiler::info-p
compiler::add-info
compiler::args-info-changed-vars
compiler::args-info-referred-vars
compiler::inline-args
compiler::coerce-loc
compiler::get-inline-loc
compiler::get-inline-info
compiler::inline-type-matches
compiler::need-to-protect
compiler::close-inline-blocks
compiler::wt-inline-loc
compiler::args-cause-side-effect
compiler::list-inline
compiler::list*-inline
compiler::defsysfun
:changed-vars
:referred-vars
:type
:sp-change
system::copy-structure
compiler::lexical
lisp::character
compiler::replaced
compiler::wt1
compiler::rep-type
compiler::vs-push
compiler::wt-var
compiler::call-global
compiler::inline-possible
compiler::wt-fixnum-loc
compiler::wt-character-loc
compiler::wt-long-float-loc
compiler::wt-short-float-loc
compiler::c2expr*
lisp::setq
compiler::baboon
compiler::type>=
compiler::type-filter
)